'Your Outside Activities Validation Script
Option Strict Off
imports System
imports Humans=PHSRAG.Insight21.Humans
imports PHSRAG.Insight21.BusinessObjects
imports FormsManagement = PHSRAG.Insight21.FormsManagement
imports System.Collections
imports Utility=PHSRAG.Utility

module Script
    sub Main()
		dim logItem as Humans.LogItem
		Dim answer as FormsManagement.Answer 
		dim answers as ArrayList = Nothing
		dim isNonePositionSelected as boolean = false
		
	
		'Fiduciary Position options are more than 1 and one of the options is None
		answers = questAnswer.GetAnswers("Position")
		If not (answers Is Nothing) then
			For Each answer In answers
				If answer.Value = "None" Then
					isNonePositionSelected = true
					exit for
				End If
			Next
			dim f as FormsManagement.Serialization.FormItem = form.GetFormItem(string.Empty, string.Empty, "Position")
			if (answers.Count > 1 and isNonePositionSelected) then
				f.Highlight = true
			else
				f.Highlight = false
			end if
		End If
   	End Sub
end module
